RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR ° 
RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR ~=RRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 
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$i 

Sy! 

NT! 

NT! 

NT! 

NT! 

NT! 

NT! 

MMM MMP SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
HM MPA ME MM SSS NT! 
MMMM MM SSS NT! 
MMMMMM  MMMMMM SSS NT! 
MMM MMM) «6OMMM «SSS NT! 
MMM MMM MMM SSS NT! 
MMM MMM MMM «SSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSS NT! 
MMM MMM $$$ NT! 
HMM MMM SSS NT! 
MMM MMM SSS NT! 
MMB MMM $$$ NT! 
MMM MMM $ss NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS | NTS 
MMM MMM SSSSSSSSSSSS NTS 
NT! 

NT! 

NT! 

NT! 

| NT! 

| NT! 

| NT! 

NT! 
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RRRRRRRR MM MM SSSSSSSS 000000 TTTTTTTTTT RRRRRRRR UU UU NN NN cccccccc 
RRRRRRRR MM MM SSSSSSSS 000000 TTTTTTTTTT RRRRRRRR UU UU NN NN cccccccc 
RR RR MMMM MMMM SS 00 00 TT RR RR UU UU NN NN CC 
RR RR MMMM MMMM SS 00 00 TT RR RR UU UU NN N CC 
RR RR MM MM SS 00 0000 TT RR RR UU UU NNNN NN CC 
RR MM MM MM SS 00 0000 TT RR RR UU UU NNNN NN CC 
RRRRRRRR MM MM SSSSSS 00 00 00 TT RRRRRRRR UU UU NN NN NN CC 
RRRRRRRR MM MM SSSSSS 00 00 00 TT RRRRRRRR UU UU NN NN NN CC 
RR RR MM MM $S 0000 00 TT RR RR UU UU NN NNNN CC 
RR RR MM MM SS 0000 00 TT RR RR UU UU NN NNNN CC 
R RR MM MM SS 00 00 TT RR RR UU UU NN NN CC cece 
RR RR MM MM SS 00 00 TT RR RR UU UU NN NN CC cose 
RR RR MM MM SSSSSSSS 000000 TT RR RR UUUUUUUUUU NN NN cccccccc eevee 
RR RR MM MM SSSSSSSS 000000 TT RR RR UUUUUUUUUU NN NN cccccccc eeee 
LL IIIII] SSSSSSSS 
LL III! SSSSSSSS 
LL I] SS 
LL II SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII! SSSSSSSS 
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660 1 $BEGIN RMSOTRUNC,000,RMSRMS,<TRUNCATE SEQUENTIAL FILE> 
apf 
i 5 Sprecher prapenpeepcaanuganc eos ae ee 
:* 
000 $ :* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
000 § :* DIGITAL EQUIPMENT €ORPORATION, MAYNARD. MASSACHUSETTS. * 
4 16 :* ALL RIGHTS RESERVED. * 
5 
0000 11 ;* THIS SOFTWARE IS eee UNDER A LICENSE AND MAY BE USED AND sorace * 
8008 1 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH aint SE AND WITH THE * 
00 13. ;* INCLUSION OF THE ABOVE Spd had NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF wy NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
i444 18 3* TRANSFERRED. * 
7* * 
0000 18 ;* THE ee a IN THIS SOFTWARE IS SUBJECT 19 CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
it $ i* CORPORATION. « 
: © 
0000 $6 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 23 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 24 ;* * 
0000 25 ;* * 
0000 26 SRR RERAE AER EEAE ETE AAE AEA A A A AAA A TTA AAT TATE AAER AeA e eee etree eee tee 
a7: 


1984 RMS .SRCIRMSOTRUNC .MAR; 1 


599 
3 Facility: rms32 


; Abstract: 
3 this module arov ides the $truncate rms service for magtape and 
; sequential disk files. 


Oooo 


3; Environment: 


S 
0 
ah 
4 
a 
000 5 : star processor running starlet exec. 
38 33 3 Author: | f laverdure, Creation Date: 9-JAN-1977 
0000 4} Modified By: 
$000 tg : v03-004 TSK0002 Tamar Krichevsky 27-Jun-1983 
9464 $3 : Fix bug introduced in v03-0 03. 
$090 46 ; v03-003 TSK0001 Tamar Krichevs shy 21-Jun-1983 
464 $ : Add support for journaling $TRUNCATE operations. 
0000 49: v03-002 KBT0408 Keith B. Thompson 24-Nov-1982 
4 29 : Replace a movc with a movl and movw 
0000 38 : v03-001 KBT0195 Keith B. Thompson 23-Aug- -1982 
4 37 ; Reorganize psects and rename entry point to single ‘$' 
0000 «55: v02-010 cosooo! C Saether 5-Nov-1981 
8008 28 : Set ifb$v_rw_attr flag in truncate routine. 
0000 «58: v02-009 PSK0002 Paulina Knibbe 26-Aug-1981 
444 22 : Fix a broken branch by changing psects (again 
0000 61; v02-008 RASO018 Ron Schaefer 7=Aug-1981 
0000 ¢ 3 Fix another broken branch for stream files by 
8008 o ; FB s. psects. 
0000 (65: v02-007 PSK0001 Paulina s. Knibbe 24-Jul-1981 
44 $6 : Fix another broken branch 
0000 «68: v03-006 KPL0001 Peter Lieberwirth 8-Jun-1981 
444 ¢ : Fix a broken branch. 
0000 71: V02-005 REFORMAT Ron Schaefer 30-Jul-1980 09:54 
4h es : Reformat the source. 
0 73; 
000 74 ;-- 
000 75; 
000 76 
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§ 


ws 
4 
_ 
ss 
—_ 
< 
— 
— 
2 
uw 
2 
oa 
w 
” 
ua 
He 
< 
vw 
=z 
— 
« 
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DECLARATIONS 


w 
z 
oO 
_— 
— 
<= 
ae 
<i 
4 
vw 
w 
a " 
cha —_ 
w ha te te o 
| a A a a a a a 2 ee 
Ld ae acocoaanna ES a 
= —_ @O>oOoovae ~ o 
@ ve <usu coz ” @ 
” eon @Oaac = 
. aw ee PAPA AOA ao] °o 
ao) yn a we 
| o ee ” 
J . LJ 
v v = c 
c b:] Co z 
_ = w oO 
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v04-000 STRUNCATE ROUTINE met 7 95:38:88 RMS.SRCIRMSOTRUNC MAR; 1 . (4). 
! 5 -SBTTL STRUNCATE ROUTINE 
1 § ++ 
1 : ; RMSTRUNCATE: 
1 ; this routine truncates a magtape or disk file of sequential organization, 
110 ; declaring eof at the current record pointer. truncate must immediately 
0 111 ; follow a successful $get, $find, or $Supdate. 
8p 11 ; the file must not be accessed for block i/o. 
4 We ; Calling sequence: 
$88 118 3 entered as a result of user's calling sys$truncate | 
0000 118 ; Input Parameters: 
0000 119; 
44 120 ; ap user's argument List 
000 121; 
0000 (1 ¢ : Implicit Inputs: 
0000 123; 
0000 124 ; the contents of the rab 
0000 125; 
0000 126 ; Output Parameters: 
0000 127: | 
0000 128 ; r0 status code 
0000 129; ri destroyed 
0000 130; 
0000 131 ; Implicit Outputs: 
0000 132 ; | 
0000 133; the sts field of the rab 
0000 134; 
0000 135 ; Completion Codes: | 
0000 136; 
0000 137 ; standard rms 
0000 138; 
0000 139 ; Side Effects: | 
0000 140 ; : 
0000 141 ; there is no current record following a truncate 
9000 149 ; | 
0000 143 ;-- 
0000 144 
0000 145 
0000 146 ; 
0000 147 ; verify operation allowed (accessed for record i/o to a magtape or disk, | 
464 148 ; having a current record) 
4 133 3; and set eof to the record pointer, backspacing 1 block if magtape 
$000 151 
0000 136 SENTRY RMSSTRUNCATE 
0000 = 15 STSTPT TRUNCATE 
0006 154 SRABSET FAC=IFBSV_TRN,BIO=0,CFLG=1 ; set up stream 
OOOA 155 
Boba 136 3 
QOA 157 ; (must be truncate accessed, 
BRA 138 3 not doing block i/o, 
OOA 159 ; clear find last) 
ona 160 ; 
000A 161 


RMSOTRUNC TRUNCATE SEQUEN 
vOL=000" STRUNCATE ROUTI 
76 6A «=63E CEO 8 A 196 
.. 
23 AA 9S 3 ‘ 164 
pee ! 192 
76 6A CE 513 169 
62 A9 «6B 016 168 
ee 019 19? 
001B 170 
boig 171 
018 176 
Bai8 17 
1B 174 
001B 175 
0018 176 
09 6A O05 €1 0018 17 
56 01 «=6CE «(OOF =: 1178 
FFDB' 30 00 g 179 
56 50 E—9 00 180 
0028 181 
QOAO CA 95 0028 186 
OF 13 O02C 18 
1¢ BB OQO2E 184 
18 DD 0030 185 
QOOOOOOO'EF 16 0032 186 
1¢ BA 0038 187 
41 50 E9 QO3A 188 
0030 189 
003D 190 
0030 191 
0030 136 
40 A9 48 A9 7D O003D 19 
74 AA 48 AD 0 98 194 
5C AA 4C AD BO 004 195 
004C 196 
0050 197 
0050 198 
0050 199 
0050 00 
0050 01 
0050 6 
0050 0 
BReh Be 
54 20 a9 0 0080 06 
21 13 0054 0 
51 48 A9 10 AG C3 bpee 08 
51 51 F6 Q05C 09 
10 1D O05 10 
48 AS 8651 «891 «(9061 11 
. 1A 0065 \¢ 
48 AG 1 90 0067 1 
OA AS O02 88 0068 14 
0 11 aot 15 
071 16 
071 1 
071 18 


TI 
NE 


AL FILE 


o-Orw— rw 
o-Wumn41mn 
-ecvcowoc 

s 

m 
Neo CO nee Be 
Dawa wm wT Te 
z2ow< Dao 
AAMAMe- MW 
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16-SEP-19 
“SEP=19 


P,(R10),NTTRUNC ; branch if network operation 


Q0 


CASE(R10) 


E 
M 
zt 


validity checks all o.k. 


a0 
peytR 16) .ERRIOP ; branch if unit record dev. 


) 


$ AUR AUT ASB Sch 


3; seq. file org.? 
; branch if no 


; do we have a current record? 
; branch if not 


if this is a magtape, backspace to rewrite the block just read. 


SBW = RMSSPACE_MT 


8 
BLBC RO,ERRX 


IT 


20$: TSTB FBSB_JNLFLG(R10) 


PUSHR #*M<R2, R3, RG > 
PUSHL #RIRS TRUNCATE 


L 
R3, R4 > 
BLBC RO, ERRXIT 


; set nrp and eof from rp 


3 


JSB RM$S 


EQJN 
POPR #*A<R2, 


0$:  MOVQ  IRBSL_RP 
MOVL IRBSLRP 
MOVW  IRBSW7RP 
SSB #IFBSU_R 


clean up current bdb. 


#DEVSV_SQD, IFBSL_PRIM_DEV(R10),20$ ; branch if not magtape 


; backspace 1 block 
; go space it 
3 get out on error 


; Is the file being journaled? 

3 No, set eof and nrp pointers 

; Save the contents of reguaters 

; Yes, journal the STRUNCATE operation 
: Constructed and write journal entry 
; Restore registers 

; Get out on error 


3; set nrp 
: and eof 


; note to rewrite attributes. 


if the new eof vbn is in the buffer, point to it and say it's dirty, 
thus causing it to get rewritten with appropriate padding, 
else just release the buffer. 


MOVL IRBSL_CURBDB(R9) ,R4 


BEQL 
CVILB 

BVS 

CMPB 

BGTRU 

MOVB 

BISB2 #BOBSM_D 
BRB SUCKIT 


: release unneeded bdb 


; is there a current bdb? 


$ ; branch if not 
SUBL3 BDBSL _VBN(R4) , IRBSL_RP_VBN(R9) ,RI : get relative vbn 


; make byte value 
branch if not in range 


40 ; 
RI BDB$B_REL_VBN(R4) ; is it in buffer? 


ranch if not 


R1,BDB$B8_REL_VBN(R4) > point to this block 


RT, BDB$B_FLGS(R4S ; say dirty 


Nba SR FOE See coo SO i SER meena pepe aoe apne 
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“y0-000" STRUNCATE ROUTINE ad a PT cha Pa 
1 BB 
FFBC’ 30 0071 221 40$:  BSBW  RMSRLNERR 
20 A D4 ff § CLRL IRBSL_CURBDB(R9) 3 Say no current bdb 
077 4; 
144 ‘ : successful exit (fali thru to error exit) 
077 : 
077 SUCKXIT: SSB #IRBSV_EOF ,(R9) : t eof 
078 } RMSSUC ag ee 
Oe 88) 
OOre 5 error exit = say no current record 
62 Ad a Mig: 5 ERRXIT: CLRW IRBSW_CSIZ(R9) 
FF7C’ 1 0081 $$ EXIT: BRW RMSEXRMS 
bone | 538 
0084 39 : perform network truncate function 
SH Se 
Boe g NTTRUNC: 
FF79° 30 0084 4 BSBW NTSTRUNCATE 3; truncate file via remote fal 
F450 €9 0087 see BLBC RO, ERRXIT ; branch on error 
EB 11 OOBA 45 BRB SUCKIT 3; branch aid 
bose | 5c9 
008C rt : handle invaiid device or organization error. 
Se 
008C 51 ERRIOP: RMSERR IOP 
EE 11. 0091 2g BRB EXIT 
33 St 
009 55 : handle no current record error. 
B38 
009 58 ERRCUR: RMSERR CUR 
E7 11 0098 59 BRB EXIT 
009A 60 
009A 61 .END 


—-z 


i 3 
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$$.PSECT_EP 
SSRMSTEST 


@ 

4 

S 

t 

a8 
-_ oa 

un” 

m 
nnonnnannnnn 


DwDwDwD 
Oooo 
~~ 


T 

$B_JNLFLG 

$B“ORGCASE 
“SEQ 


“EBK 
$L-PRIM_DEV 


m 

z 

BwOwawwwawww-—z 

£2 Sad 2s = 

oO ra 

~ 
OOCOCCOCOCOOCOCOCCOCOCOOCOOOOOOOOOOO 


DDD MATH HHH TH 
wow 
SOoOoOoCoCoOoCooooCOoOCOoCOOoOOOCOOOOOOOO 
SOOO COCOCOOOCOOOCSOOOOOOOOCOOOOOOO 
SOoOoOoooOCoOoCoCoOoooooOo 


00000084 R 


RMSRLNERR 
RMSRSET 
RMSSEQJNL 


PIOSA_TRACE 
RJR$_ TRUNCATE = 00000018 
RMSERRMS 


geraeeaene 
eererreee 
geereenee 
eererere 
eerenreae 


FFFFFFFE 
eS es 
00018574 


<<a ClCUlCCi 
oooo°oo coo 
ahaiabaiabad adadad 


SUCXTT 00000077 R 01 
TPT$L_ TRUNCATE teretere =X 01 


PSECT name Allocation PSECT No. Attributes 

0000000 < 0.) 0O¢ OO.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
OOO009A ¢ 154.) O1¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
00000000 <( 0.) O02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


Wail t Mocro Run Statistics ee ener eee "orge Pa} 984 % 38: §2 


+ 
! Performance indicators ! 


wm wenn nen oeeanoca nance e + 


Phase Page faults CPU Time Elapsed Time 
Initialization 33 00:00: 8.09 0:00: 0.8 
Command processing 1 00:00:00.75 0:00:09.4 
Pass 295 Bo: 709.15 0:00:27.4 
Loy table sort 8 0: 0:01:38 00:00: ¢: 
ed Ree 90:00:00:09  00:00;00:19 
Psect synopsis output 1 Ses $4 3 BF Bb Be “OE 
Cross-reference output 0 BB Bb 98 00:00:00.0 
Assembler run totals 531 00:00:13.00 00:00:44.68 


The working set Limit was 1350 pages. 
51310 bytes (101 pages) of virtual memory were used to buffer the intermediate code. 


AX/VMS Macro V04-00 


RMS .SRCJRMSOTRUNC .MAR; 1 


There were 60 pages of symbol table space allocated to hold 1026 non-local and 5 local symbols. 


261 source Lines were read in Pass 1, producing 13 object records in Pass 2. 
24 pages of virtual memory were used to define 23 macros. 


eee ote ree eee eee eo em ewe meee + 


See ee ERR ERR eM ey 


Macro Library name 


=B35S80UAS: ny oy “y+ “at 1 14 
“$255SDUA28: MLB; 1 0 

55SDUA28: SySi SBISTARLET” MLB; 2 5 
Tovace (all Libraries) 19 


1159 GETS were required to define 19 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:RMSOTRUNC/OBJ=OBJ$:RMSOTRUNC MSRC$:RMSOTRUNC/UPDATE=(ENHS$:RMSOTRUNC) +EXECMLS$/LIB+LIBS$:RMS/LIB 
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